home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / constructions / Polar.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  581 b   |  16 lines

  1. .geometry "version 0.1";
  2. v1 = .free(-0.507042, -0.0140845, .L0, "1");
  3. v2 = .free(-0.152113, 0.391549, .L0, "2");
  4. v3 = .free(0.4, 0.185915, .L0, "3");
  5. v4 = .free(0.684507, -0.425352, .L0, "4");
  6. v5 = .free(-0.174648, -0.357746, .L0, "5");
  7. con = .conic.vvvvv(v1, v2, v3, v4, v5);
  8. v6 = .free(-0.876056, 0.0535211, .L0, "6");
  9. v7 = .free(0.157746, 0.783099, .L0, "7");
  10. l1 = .l.vv(v6, v7, .L0, .longline);
  11. vv1 = .v.lconic(l1, con, 1);
  12. vv2 = .v.lconic(l1, con, 2);
  13. ll1 = .l.conicv(con, vv1, 2, .longline);
  14. ll2 = .l.conicv(con, vv2, 2, .longline);
  15. v8 = .v.ll(ll1, ll2, .smear, .L0, .plus);
  16.